home *** CD-ROM | disk | FTP | other *** search
/ Word Play Farm / Word Play Farm.iso / pc / movies / shared.dxr / 00504_Configuration handlers (Change these values).ls < prev    next >
Encoding:
Text File  |  1996-07-29  |  1.7 KB  |  64 lines
  1. on RetConfig pNum
  2.   if pNum = 0 then
  3.     return 6
  4.   else
  5.     if pNum = 1 then
  6.       return "PUZZCROP,ListCrops,INTRCROP.aif,RWRDCROP"
  7.     else
  8.       if pNum = 2 then
  9.         return "PUZZANIM,ListAnimals,INTRANIM.aif,RWRDANIM"
  10.       else
  11.         if pNum = 3 then
  12.           return "PUZZACTI,ListActivities,INTRACTI.aif,RWRDACTI"
  13.         else
  14.           if pNum = 4 then
  15.             return "PUZZBARN,ListBarn,INTRBARN.aif,RWRDBARN"
  16.           else
  17.             if pNum = 5 then
  18.               return "PUZZEQUI,ListEquipment,INTREQUI.aif,RWRDEQUI"
  19.             else
  20.               if pNum = 6 then
  21.                 return "PUZZWORL,ListWorldFarms,INTRWORL.aif,RWRDWORL"
  22.               end if
  23.             end if
  24.           end if
  25.         end if
  26.       end if
  27.     end if
  28.   end if
  29. end
  30.  
  31. on SetDefaults
  32.   global gMainName, gMainLabel, gFinalReward, gLow, gActPlay, gRollClr, gHiLiClr, gHiLiSize, gHitBoxStart, SFormat, MSound, gVersion, gCfgName, gLetterBoxes, giChoiceNum
  33.   set giChoiceNum to 1
  34.   set gCfgName to "WordPlay: Innotech Multimedia Copyright 1996"
  35.   set gVersion to "2.0"
  36.   set gMainName to "SPACMENU"
  37.   set gMainLabel to EMPTY
  38.   set gFinalReward to "RWRDFINL"
  39.   set SFormat to "AIF"
  40.   set MSound to "SCLICK.AIF"
  41.   set gLow to 5
  42.   set gHitBoxStart to gLow
  43.   set gLetterBoxes to 28
  44.   set gActPlay to 1
  45.   set gRollClr to 227
  46.   set gHiLiClr to 215
  47.   set gHiLiSize to 2
  48.   set gFlashTime to 0.5
  49. end
  50.  
  51. on SetDataManagement
  52.   global gVersion, gCfgName, gCfgPath, gMaxUsers, gProjPath, gRecStart, gRecStep, gCanSave, gSelection
  53.   set gMaxUsers to 5
  54.   set gRecStart to 4
  55.   set gRecStep to 7
  56.   set gCanSave to 1
  57.   set gSelection to 1
  58.   if machineType() = 256 then
  59.     set gCfgPath to gProjPath & "SPACE.SAV"
  60.   else
  61.     set gCfgPath to gProjPath & "SPACE Saved Games"
  62.   end if
  63. end
  64.